home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Panorama.dxr / 00086_MovieFrameScript.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  2.0 KB  |  58 lines
  1. on movieframescript pspritenum
  2.   global gqtvrinstance, glasttimerollover, nodeplan, nodepict, copyrectlist, pointx, pointy, newfile, vrflag, roomnumber, currectnodeid
  3.   if rollOver(pspritenum) then
  4.     if qtvrgetvisible(gqtvrinstance) then
  5.       if isqtvrmovie(gqtvrinstance) then
  6.         set tmouseoverresult to qtvrmouseover(gqtvrinstance)
  7.         if tmouseoverresult <> 0 then
  8.           set taction to item 1 of tmouseoverresult
  9.           case taction of
  10.             "undf":
  11.               if vrflag = 1 then
  12.                 put "[#RoomNumber:" && roomnumber & ", #NodeID:" && qtvrgetnodeid(gqtvrinstance) & ", #Flag: 1]" into field "Panorama Location"
  13.                 go(1, "Object")
  14.                 abort()
  15.               end if
  16.             "jump":
  17.               set currectnodeid to integer(item 2 of tmouseoverresult)
  18.               if (roomnumber = 204) and (currectnodeid = 4) then
  19.                 exit
  20.               end if
  21.               set r to getAt(copyrectlist, currectnodeid)
  22.               set hoffset to the left of sprite nodeplan
  23.               set voffset to the top of sprite nodeplan
  24.               spriteBox(nodepict, getAt(r, 1) + hoffset, getAt(r, 2) + voffset, getAt(r, 3) + hoffset, getAt(r, 4) + voffset)
  25.               updateStage()
  26.               put qtvrgetpanangle(gqtvrinstance) into field "PanAngle"
  27.               setcompass(currectnodeid)
  28.           end case
  29.           set glasttimerollover to 1
  30.         else
  31.           if rollOver(pspritenum) then
  32.             set glasttimerollover to 1
  33.           else
  34.             cursor(200)
  35.             cursor(-1)
  36.             set glasttimerollover to 0
  37.           end if
  38.         end if
  39.       end if
  40.     else
  41.       if glasttimerollover then
  42.         cursor(200)
  43.         cursor(-1)
  44.         set glasttimerollover to 0
  45.       end if
  46.     end if
  47.   else
  48.     if glasttimerollover then
  49.       cursor(200)
  50.       cursor(-1)
  51.       set glasttimerollover to 0
  52.     end if
  53.   end if
  54.   if isqtvrmovie(gqtvrinstance) then
  55.     qtvridle(gqtvrinstance)
  56.   end if
  57. end
  58.